function y = fletchcr(x)
% FLETCHCR Function
%x0=[0,0,...,0]
%c=100;
%fmin=n/2
%Author:wang zhujun
n=length(x);
z=ones(1,n-1);
for i=1:n-1
    z(i)=(10*(x(i+1)-x(i)+1-x(i)^2))^2;
end
y=sum(z);